/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / jade-3.2-amiga.lha / jade-3.2 / lisp / edit.jlc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 65 64 |jade/3.2|/lisp/ed|
|00000030| 69 74 2e 6a 6c 0a 3b 3b | 3b 20 43 6f 6d 70 69 6c |it.jl.;;|; Compil|
|00000040| 65 64 20 62 79 20 6a 73 | 68 40 6f 72 63 72 69 73 |ed by js|h@orcris|
|00000050| 74 20 6f 6e 20 53 75 6e | 20 4f 63 74 20 31 36 20 |t on Sun| Oct 16 |
|00000060| 32 30 3a 32 31 3a 31 30 | 20 31 39 39 34 0a 3b 3b |20:21:10| 1994.;;|
|00000070| 3b 20 4a 61 64 65 20 33 | 2e 32 0a 0a 28 64 65 66 |; Jade 3|.2..(def|
|00000080| 76 61 72 20 77 6f 72 64 | 2d 72 65 67 65 78 70 20 |var word|-regexp |
|00000090| 22 5b 61 2d 7a 41 2d 5a | 30 2d 39 5d 22 20 38 38 |"[a-zA-Z|0-9]" 88|
|000000a0| 31 37 35 29 0a 0a 28 64 | 65 66 76 61 72 20 77 6f |175)..(d|efvar wo|
|000000b0| 72 64 2d 6e 6f 74 2d 72 | 65 67 65 78 70 20 22 5b |rd-not-r|egexp "[|
|000000c0| 5e 61 2d 7a 41 2d 5a 30 | 2d 39 5d 7c 24 22 20 38 |^a-zA-Z0|-9]|$" 8|
|000000d0| 38 32 33 31 29 0a 0a 28 | 64 65 66 76 61 72 20 70 |8231)..(|defvar p|
|000000e0| 61 72 61 67 72 61 70 68 | 2d 72 65 67 65 78 70 20 |aragraph|-regexp |
|000000f0| 22 5e 5b 09 20 5d 2a 24 | 22 20 38 38 32 39 36 29 |"^[. ]*$|" 88296)|
|00000100| 0a 0a 28 6d 61 6b 65 2d | 76 61 72 69 61 62 6c 65 |..(make-|variable|
|00000110| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 20 28 71 |-buffer-|local (q|
|00000120| 75 6f 74 65 20 77 6f 72 | 64 2d 72 65 67 65 78 70 |uote wor|d-regexp|
|00000130| 29 29 0a 0a 28 6d 61 6b | 65 2d 76 61 72 69 61 62 |))..(mak|e-variab|
|00000140| 6c 65 2d 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 20 |le-buffe|r-local |
|00000150| 28 71 75 6f 74 65 20 77 | 6f 72 64 2d 6e 6f 74 2d |(quote w|ord-not-|
|00000160| 72 65 67 65 78 70 29 29 | 0a 0a 28 6d 61 6b 65 2d |regexp))|..(make-|
|00000170| 76 61 72 69 61 62 6c 65 | 2d 62 75 66 66 65 72 2d |variable|-buffer-|
|00000180| 6c 6f 63 61 6c 20 28 71 | 75 6f 74 65 20 70 61 72 |local (q|uote par|
|00000190| 61 67 72 61 70 68 2d 72 | 65 67 65 78 70 29 29 0a |agraph-r|egexp)).|
|000001a0| 0a 28 64 65 66 76 61 72 | 20 61 75 74 6f 2d 6d 61 |.(defvar| auto-ma|
|000001b0| 72 6b 20 28 6d 61 6b 65 | 2d 6d 61 72 6b 29 20 38 |rk (make|-mark) 8|
|000001c0| 38 33 36 37 29 0a 0a 28 | 64 65 66 75 6e 20 66 6f |8367)..(|defun fo|
|000001d0| 72 77 61 72 64 2d 77 6f | 72 64 20 28 26 6f 70 74 |rward-wo|rd (&opt|
|000001e0| 69 6f 6e 61 6c 20 6e 75 | 6d 62 65 72 20 70 6f 73 |ional nu|mber pos|
|000001f0| 20 6d 6f 76 65 29 20 38 | 38 34 33 35 20 28 69 6e | move) 8|8435 (in|
|00000200| 74 65 72 61 63 74 69 76 | 65 20 22 70 0a 0a 74 22 |teractiv|e "p..t"|
|00000210| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000220| 65 20 22 18 ff 00 07 11 | 46 20 48 1a ff 00 10 13 |e ".....|F H.....|
|00000230| 08 46 5c 22 48 18 14 66 | fc 00 61 18 14 63 fe 00 |.F\"H..f|..a..c..|
|00000240| 5e 15 11 1a 0a 46 5c 22 | 48 16 06 1e 07 1a 0a fe |^....F\"|H.......|
|00000250| 00 3d 16 08 1e 09 1a 0a | 46 5c 22 ff 00 3d 16 0a |.=......|F\"..=..|
|00000260| 16 0b 09 48 16 08 1e 07 | 1a 0a 46 5c 22 ff 00 4e |...H....|..F\"..N|
|00000270| 16 0a 16 0b 09 48 16 0c | 1e 09 1a 0a 5c 22 18 68 |.....H..|....\".h|
|00000280| 46 20 48 fb 00 17 fb 00 | a2 4a fc 00 a1 18 14 63 |F H.....|.J.....c|
|00000290| fe 00 9e 16 06 1e 07 1a | 0a fe 00 84 16 0c 1e 09 |........|........|
|000002a0| 1a 0a 46 5c 22 ff 00 84 | 16 0a 16 0d 09 48 16 0c |..F\"...|.....H..|
|000002b0| 1e 07 1a 0a 46 5c 22 ff | 00 95 16 0a 16 0d 09 48 |....F\".|.......H|
|000002c0| 18 69 46 20 48 fb 00 65 | fb 00 a2 49 48 1e 0e fe |.iF H..e|...IH...|
|000002d0| 00 ac 16 0f 1a 09 48 1a | 22 20 5b 6e 75 6d 62 65 |......H.|" [numbe|
|000002e0| 72 20 31 20 70 6f 73 20 | 63 75 72 73 6f 72 2d 70 |r 1 pos |cursor-p|
|000002f0| 6f 73 20 30 20 70 72 65 | 76 2d 63 68 61 72 20 6c |os 0 pre|v-char l|
|00000300| 6f 6f 6b 69 6e 67 2d 61 | 74 20 77 6f 72 64 2d 6e |ooking-a|t word-n|
|00000310| 6f 74 2d 72 65 67 65 78 | 70 20 66 69 6e 64 2d 70 |ot-regex|p find-p|
|00000320| 72 65 76 2d 72 65 67 65 | 78 70 20 77 6f 72 64 2d |rev-rege|xp word-|
|00000330| 72 65 67 65 78 70 20 65 | 72 72 6f 72 20 22 53 74 |regexp e|rror "St|
|00000340| 61 72 74 20 6f 66 20 62 | 75 66 66 65 72 22 20 66 |art of b|uffer" f|
|00000350| 69 6e 64 2d 6e 65 78 74 | 2d 72 65 67 65 78 70 20 |ind-next|-regexp |
|00000360| 22 45 6e 64 20 6f 66 20 | 62 75 66 66 65 72 22 20 |"End of |buffer" |
|00000370| 6d 6f 76 65 20 67 6f 74 | 6f 2d 63 68 61 72 5d 20 |move got|o-char] |
|00000380| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 62 61 63 6b |3))..(de|fun back|
|00000390| 77 61 72 64 2d 77 6f 72 | 64 20 28 26 6f 70 74 69 |ward-wor|d (&opti|
|000003a0| 6f 6e 61 6c 20 6e 75 6d | 62 65 72 20 70 6f 73 20 |onal num|ber pos |
|000003b0| 6d 6f 76 65 29 20 38 38 | 36 32 39 20 28 69 6e 74 |move) 88|629 (int|
|000003c0| 65 72 61 63 74 69 76 65 | 20 22 70 0a 0a 74 22 29 |eractive| "p..t")|
|000003d0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000003e0| 20 22 10 19 fc 00 0a 19 | 57 fb 00 0b 12 1b 1c 0b | "......|W.......|
|000003f0| 22 20 5b 66 6f 72 77 61 | 72 64 2d 77 6f 72 64 20 |" [forwa|rd-word |
|00000400| 6e 75 6d 62 65 72 20 2d | 31 20 70 6f 73 20 6d 6f |number -|1 pos mo|
|00000410| 76 65 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |ve] 4)).|.(defun |
|00000420| 6b 69 6c 6c 2d 77 6f 72 | 64 20 28 63 6f 75 6e 74 |kill-wor|d (count|
|00000430| 29 20 38 38 36 37 33 20 | 28 69 6e 74 65 72 61 63 |) 88673 |(interac|
|00000440| 74 69 76 65 20 22 70 22 | 29 20 28 6a 61 64 65 2d |tive "p"|) (jade-|
|00000450| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 11 08 12 1b |byte-cod|e ".....|
|00000460| 09 0a 22 20 5b 6b 69 6c | 6c 2d 61 72 65 61 20 63 |.." [kil|l-area c|
|00000470| 75 72 73 6f 72 2d 70 6f | 73 20 66 6f 72 77 61 72 |ursor-po|s forwar|
|00000480| 64 2d 77 6f 72 64 20 63 | 6f 75 6e 74 5d 20 34 29 |d-word c|ount] 4)|
|00000490| 29 0a 0a 28 64 65 66 75 | 6e 20 62 61 63 6b 77 61 |)..(defu|n backwa|
|000004a0| 72 64 2d 6b 69 6c 6c 2d | 77 6f 72 64 20 28 63 6f |rd-kill-|word (co|
|000004b0| 75 6e 74 29 20 38 38 37 | 31 39 20 28 69 6e 74 65 |unt) 887|19 (inte|
|000004c0| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 6a 61 |ractive |"p") (ja|
|000004d0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 11 |de-byte-|code "..|
|000004e0| 1a 57 09 13 08 0a 22 20 | 5b 6b 69 6c 6c 2d 61 72 |.W...." |[kill-ar|
|000004f0| 65 61 20 66 6f 72 77 61 | 72 64 2d 77 6f 72 64 20 |ea forwa|rd-word |
|00000500| 63 6f 75 6e 74 20 63 75 | 72 73 6f 72 2d 70 6f 73 |count cu|rsor-pos|
|00000510| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 77 6f |] 3))..(|defun wo|
|00000520| 72 64 2d 73 74 61 72 74 | 20 28 26 6f 70 74 69 6f |rd-start| (&optio|
|00000530| 6e 61 6c 20 70 6f 73 29 | 20 38 38 37 36 37 20 28 |nal pos)| 88767 (|
|00000540| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00000550| 10 19 1a 0a fe 00 1a 13 | 1c 1a 0a ff 00 12 15 16 |........|........|
|00000560| 06 09 48 16 07 19 16 08 | 08 0a 22 20 5b 6c 6f 6f |..H.....|.." [loo|
|00000570| 6b 69 6e 67 2d 61 74 20 | 77 6f 72 64 2d 72 65 67 |king-at |word-reg|
|00000580| 65 78 70 20 70 6f 73 20 | 66 69 6e 64 2d 70 72 65 |exp pos |find-pre|
|00000590| 76 2d 72 65 67 65 78 70 | 20 77 6f 72 64 2d 6e 6f |v-regexp| word-no|
|000005a0| 74 2d 72 65 67 65 78 70 | 20 65 72 72 6f 72 20 22 |t-regexp| error "|
|000005b0| 53 74 61 72 74 20 6f 66 | 20 62 75 66 66 65 72 22 |Start of| buffer"|
|000005c0| 20 66 69 6e 64 2d 6e 65 | 78 74 2d 72 65 67 65 78 | find-ne|xt-regex|
|000005d0| 70 20 6d 61 74 63 68 2d | 65 6e 64 5d 20 33 29 29 |p match-|end] 3))|
|000005e0| 0a 0a 28 64 65 66 75 6e | 20 69 6e 2d 77 6f 72 64 |..(defun| in-word|
|000005f0| 2d 70 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 70 6f |-p (&opt|ional po|
|00000600| 73 29 20 38 38 38 31 37 | 20 28 6a 61 64 65 2d 62 |s) 88817| (jade-b|
|00000610| 79 74 65 2d 63 6f 64 65 | 20 22 10 19 1a 0a fe 00 |yte-code| "......|
|00000620| 08 4a 22 20 5b 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |.J" [loo|king-at |
|00000630| 77 6f 72 64 2d 72 65 67 | 65 78 70 20 70 6f 73 5d |word-reg|exp pos]|
|00000640| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 72 | 3))..(d|efun mar|
|00000650| 6b 2d 77 6f 72 64 20 28 | 63 6f 75 6e 74 20 26 6f |k-word (|count &o|
|00000660| 70 74 69 6f 6e 61 6c 20 | 70 6f 73 29 20 38 38 38 |ptional |pos) 888|
|00000670| 35 32 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |52 (inte|ractive |
|00000680| 22 70 22 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |"p") (ja|de-byte-|
|00000690| 63 6f 64 65 20 22 10 49 | 49 0a 48 11 1a ff 00 0c |code ".I|I.H.....|
|000006a0| 13 08 14 1d 1a 0a 0a 22 | 20 5b 73 65 74 2d 72 65 |......."| [set-re|
|000006b0| 63 74 2d 62 6c 6f 63 6b | 73 20 6d 61 72 6b 2d 62 |ct-block|s mark-b|
|000006c0| 6c 6f 63 6b 20 70 6f 73 | 20 63 75 72 73 6f 72 2d |lock pos| cursor-|
|000006d0| 70 6f 73 20 66 6f 72 77 | 61 72 64 2d 77 6f 72 64 |pos forw|ard-word|
|000006e0| 20 63 6f 75 6e 74 5d 20 | 35 29 29 0a 0a 28 64 65 | count] |5))..(de|
|000006f0| 66 75 6e 20 74 72 61 6e | 73 70 6f 73 65 2d 77 6f |fun tran|spose-wo|
|00000700| 72 64 73 20 28 63 6f 75 | 6e 74 29 20 38 38 38 38 |rds (cou|nt) 8888|
|00000710| 30 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |0 (inter|active "|
|00000720| 70 22 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |p") (jad|e-byte-c|
|00000730| 6f 64 65 20 22 10 11 12 | 1b 0b 22 20 5b 74 72 61 |ode "...|.." [tra|
|00000740| 6e 73 70 6f 73 65 2d 69 | 74 65 6d 73 20 66 6f 72 |nspose-i|tems for|
|00000750| 77 61 72 64 2d 77 6f 72 | 64 20 62 61 63 6b 77 61 |ward-wor|d backwa|
|00000760| 72 64 2d 77 6f 72 64 20 | 63 6f 75 6e 74 5d 20 34 |rd-word |count] 4|
|00000770| 29 29 0a 0a 28 64 65 66 | 75 6e 20 66 6f 72 77 61 |))..(def|un forwa|
|00000780| 72 64 2d 70 61 72 61 67 | 72 61 70 68 20 28 26 6f |rd-parag|raph (&o|
|00000790| 70 74 69 6f 6e 61 6c 20 | 70 6f 73 20 62 75 66 20 |ptional |pos buf |
|000007a0| 6d 6f 76 65 29 20 38 38 | 39 33 39 20 28 69 6e 74 |move) 88|939 (int|
|000007b0| 65 72 61 63 74 69 76 65 | 20 22 0a 0a 74 22 29 20 |eractive| "..t") |
|000007c0| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|000007d0| 22 10 19 12 13 1c fc 00 | 0e 15 1c 09 fb 00 11 16 |".......|........|
|000007e0| 06 08 0a 1e 07 0b ff 00 | 1b 16 08 08 46 24 48 1e |........|....F$H.|
|000007f0| 09 fe 00 27 16 0a 1c 09 | 48 1c 22 20 5b 66 69 6e |...'....|H." [fin|
|00000800| 64 2d 6e 65 78 74 2d 72 | 65 67 65 78 70 20 70 61 |d-next-r|egexp pa|
|00000810| 72 61 67 72 61 70 68 2d | 72 65 67 65 78 70 20 6e |ragraph-|regexp n|
|00000820| 65 78 74 2d 63 68 61 72 | 20 31 20 70 6f 73 20 63 |ext-char| 1 pos c|
|00000830| 6f 70 79 2d 70 6f 73 20 | 63 75 72 73 6f 72 2d 70 |opy-pos |cursor-p|
|00000840| 6f 73 20 62 75 66 20 62 | 75 66 66 65 72 2d 65 6e |os buf b|uffer-en|
|00000850| 64 20 6d 6f 76 65 20 67 | 6f 74 6f 2d 63 68 61 72 |d move g|oto-char|
|00000860| 5d 20 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 62 61 |] 6))..(|defun ba|
|00000870| 63 6b 77 61 72 64 2d 70 | 61 72 61 67 72 61 70 68 |ckward-p|aragraph|
|00000880| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 70 6f 73 20 | (&optio|nal pos |
|00000890| 62 75 66 20 6d 6f 76 65 | 29 20 38 39 30 35 30 20 |buf move|) 89050 |
|000008a0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 0a 0a |(interac|tive "..|
|000008b0| 74 22 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |t") (jad|e-byte-c|
|000008c0| 6f 64 65 20 22 10 19 12 | 13 1c fc 00 0e 15 1c 09 |ode "...|........|
|000008d0| fb 00 11 16 06 08 0a 1e | 07 0b ff 00 1b 16 08 08 |........|........|
|000008e0| 46 24 48 1e 09 fe 00 27 | 16 0a 1c 09 48 1c 22 20 |F$H....'|....H." |
|000008f0| 5b 66 69 6e 64 2d 70 72 | 65 76 2d 72 65 67 65 78 |[find-pr|ev-regex|
|00000900| 70 20 70 61 72 61 67 72 | 61 70 68 2d 72 65 67 65 |p paragr|aph-rege|
|00000910| 78 70 20 70 72 65 76 2d | 63 68 61 72 20 31 20 70 |xp prev-|char 1 p|
|00000920| 6f 73 20 63 6f 70 79 2d | 70 6f 73 20 63 75 72 73 |os copy-|pos curs|
|00000930| 6f 72 2d 70 6f 73 20 62 | 75 66 20 62 75 66 66 65 |or-pos b|uf buffe|
|00000940| 72 2d 73 74 61 72 74 20 | 6d 6f 76 65 20 67 6f 74 |r-start |move got|
|00000950| 6f 2d 63 68 61 72 5d 20 | 36 29 29 0a 0a 28 64 65 |o-char] |6))..(de|
|00000960| 66 75 6e 20 6d 61 72 6b | 2d 70 61 72 61 67 72 61 |fun mark|-paragra|
|00000970| 70 68 20 6e 69 6c 20 38 | 39 31 34 34 20 28 69 6e |ph nil 8|9144 (in|
|00000980| 74 65 72 61 63 74 69 76 | 65 29 20 28 6a 61 64 65 |teractiv|e) (jade|
|00000990| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 44 10 08 31 |-byte-co|de "D..1|
|000009a0| 12 49 49 0a 48 13 14 19 | 09 19 0a 45 22 20 5b 66 |.II.H...|...E" [f|
|000009b0| 6f 72 77 61 72 64 2d 70 | 61 72 61 67 72 61 70 68 |orward-p|aragraph|
|000009c0| 20 70 61 72 20 73 65 74 | 2d 72 65 63 74 2d 62 6c | par set|-rect-bl|
|000009d0| 6f 63 6b 73 20 6d 61 72 | 6b 2d 62 6c 6f 63 6b 20 |ocks mar|k-block |
|000009e0| 62 61 63 6b 77 61 72 64 | 2d 70 61 72 61 67 72 61 |backward|-paragra|
|000009f0| 70 68 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |ph] 3)).|.(defun |
|00000a00| 63 6f 70 79 2d 62 6c 6f | 63 6b 20 28 26 61 75 78 |copy-blo|ck (&aux|
|00000a10| 20 72 63 29 20 38 39 31 | 39 30 20 28 6a 61 64 65 | rc) 891|90 (jade|
|00000a20| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 10 08 fe 00 |-byte-co|de "....|
|00000a30| 1d 11 12 08 fc 00 0f 13 | fb 00 10 14 15 08 16 06 |........|........|
|00000a40| 08 0b 46 26 07 48 16 08 | 08 48 1e 07 22 20 5b 62 |..F&.H..|.H.." [b|
|00000a50| 6c 6f 63 6b 70 20 66 75 | 6e 63 61 6c 6c 20 72 65 |lockp fu|ncall re|
|00000a60| 63 74 2d 62 6c 6f 63 6b | 73 2d 70 20 63 6f 70 79 |ct-block|s-p copy|
|00000a70| 2d 72 65 63 74 20 63 6f | 70 79 2d 61 72 65 61 20 |-rect co|py-area |
|00000a80| 62 6c 6f 63 6b 2d 73 74 | 61 72 74 20 62 6c 6f 63 |block-st|art bloc|
|00000a90| 6b 2d 65 6e 64 20 72 63 | 20 62 6c 6f 63 6b 2d 6b |k-end rc| block-k|
|00000aa0| 69 6c 6c 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |ill] 4))|..(defun|
|00000ab0| 20 63 75 74 2d 62 6c 6f | 63 6b 20 28 26 61 75 78 | cut-blo|ck (&aux|
|00000ac0| 20 72 63 29 20 38 39 32 | 38 34 20 28 6a 61 64 65 | rc) 892|84 (jade|
|00000ad0| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 10 08 fe 00 |-byte-co|de "....|
|00000ae0| 1d 11 12 08 fc 00 0f 13 | fb 00 10 14 15 08 16 06 |........|........|
|00000af0| 08 0b 46 26 07 48 16 08 | 08 48 1e 07 22 20 5b 62 |..F&.H..|.H.." [b|
|00000b00| 6c 6f 63 6b 70 20 66 75 | 6e 63 61 6c 6c 20 72 65 |lockp fu|ncall re|
|00000b10| 63 74 2d 62 6c 6f 63 6b | 73 2d 70 20 63 75 74 2d |ct-block|s-p cut-|
|00000b20| 72 65 63 74 20 63 75 74 | 2d 61 72 65 61 20 62 6c |rect cut|-area bl|
|00000b30| 6f 63 6b 2d 73 74 61 72 | 74 20 62 6c 6f 63 6b 2d |ock-star|t block-|
|00000b40| 65 6e 64 20 72 63 20 62 | 6c 6f 63 6b 2d 6b 69 6c |end rc b|lock-kil|
|00000b50| 6c 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |l] 4))..|(defun d|
|00000b60| 65 6c 65 74 65 2d 62 6c | 6f 63 6b 20 6e 69 6c 20 |elete-bl|ock nil |
|00000b70| 38 39 33 37 31 20 28 69 | 6e 74 65 72 61 63 74 69 |89371 (i|nteracti|
|00000b80| 76 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |ve) (jad|e-byte-c|
|00000b90| 6f 64 65 20 22 10 08 fe | 00 1a 11 12 08 fc 00 0f |ode "...|........|
|00000ba0| 13 fb 00 10 14 15 08 16 | 06 08 0b 48 16 07 08 22 |........|...H..."|
|00000bb0| 20 5b 62 6c 6f 63 6b 70 | 20 66 75 6e 63 61 6c 6c | [blockp| funcall|
|00000bc0| 20 72 65 63 74 2d 62 6c | 6f 63 6b 73 2d 70 20 64 | rect-bl|ocks-p d|
|00000bd0| 65 6c 65 74 65 2d 72 65 | 63 74 20 64 65 6c 65 74 |elete-re|ct delet|
|00000be0| 65 2d 61 72 65 61 20 62 | 6c 6f 63 6b 2d 73 74 61 |e-area b|lock-sta|
|00000bf0| 72 74 20 62 6c 6f 63 6b | 2d 65 6e 64 20 62 6c 6f |rt block|-end blo|
|00000c00| 63 6b 2d 6b 69 6c 6c 5d | 20 34 29 29 0a 0a 28 64 |ck-kill]| 4))..(d|
|00000c10| 65 66 75 6e 20 69 6e 73 | 65 72 74 2d 62 6c 6f 63 |efun ins|ert-bloc|
|00000c20| 6b 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 70 6f 73 |k (&opti|onal pos|
|00000c30| 29 20 38 39 34 33 35 20 | 28 69 6e 74 65 72 61 63 |) 89435 |(interac|
|00000c40| 74 69 76 65 29 20 28 6a | 61 64 65 2d 62 79 74 65 |tive) (j|ade-byte|
|00000c50| 2d 63 6f 64 65 20 22 10 | 08 fe 00 27 11 08 fc 00 |-code ".|...'....|
|00000c60| 17 12 13 14 08 15 08 0a | 1e 06 0a fb 00 23 16 07 |........|.....#..|
|00000c70| 16 08 14 08 15 08 0a 1e | 06 0a 48 16 09 08 22 20 |........|..H..." |
|00000c80| 5b 62 6c 6f 63 6b 70 20 | 72 65 63 74 2d 62 6c 6f |[blockp |rect-blo|
|00000c90| 63 6b 73 2d 70 20 69 6e | 73 65 72 74 2d 72 65 63 |cks-p in|sert-rec|
|00000ca0| 74 20 63 6f 70 79 2d 72 | 65 63 74 20 62 6c 6f 63 |t copy-r|ect bloc|
|00000cb0| 6b 2d 73 74 61 72 74 20 | 62 6c 6f 63 6b 2d 65 6e |k-start |block-en|
|00000cc0| 64 20 70 6f 73 20 69 6e | 73 65 72 74 20 63 6f 70 |d pos in|sert cop|
|00000cd0| 79 2d 61 72 65 61 20 62 | 6c 6f 63 6b 2d 6b 69 6c |y-area b|lock-kil|
|00000ce0| 6c 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 74 |l] 4))..|(defun t|
|00000cf0| 6f 67 67 6c 65 2d 72 65 | 63 74 2d 62 6c 6f 63 6b |oggle-re|ct-block|
|00000d00| 73 20 6e 69 6c 20 38 39 | 35 32 37 20 28 69 6e 74 |s nil 89|527 (int|
|00000d10| 65 72 61 63 74 69 76 65 | 29 20 28 6a 61 64 65 2d |eractive|) (jade-|
|00000d20| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 49 11 08 5d |byte-cod|e ".I..]|
|00000d30| 0a 22 20 5b 73 65 74 2d | 72 65 63 74 2d 62 6c 6f |." [set-|rect-blo|
|00000d40| 63 6b 73 20 72 65 63 74 | 2d 62 6c 6f 63 6b 73 2d |cks rect|-blocks-|
|00000d50| 70 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 6b |p] 3))..|(defun k|
|00000d60| 69 6c 6c 2d 62 6c 6f 63 | 6b 20 6e 69 6c 20 38 39 |ill-bloc|k nil 89|
|00000d70| 36 35 30 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |650 (int|eractive|
|00000d80| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000d90| 65 20 22 10 11 08 09 22 | 20 5b 6b 69 6c 6c 2d 73 |e "...."| [kill-s|
|00000da0| 74 72 69 6e 67 20 63 75 | 74 2d 62 6c 6f 63 6b 5d |tring cu|t-block]|
|00000db0| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 6f 70 | 2))..(d|efun cop|
|00000dc0| 79 2d 62 6c 6f 63 6b 2d | 61 73 2d 6b 69 6c 6c 20 |y-block-|as-kill |
|00000dd0| 6e 69 6c 20 38 39 36 38 | 39 20 28 69 6e 74 65 72 |nil 8968|9 (inter|
|00000de0| 61 63 74 69 76 65 29 20 | 28 6a 61 64 65 2d 62 79 |active) |(jade-by|
|00000df0| 74 65 2d 63 6f 64 65 20 | 22 10 11 08 09 22 20 5b |te-code |"...." [|
|00000e00| 6b 69 6c 6c 2d 73 74 72 | 69 6e 67 20 63 6f 70 79 |kill-str|ing copy|
|00000e10| 2d 62 6c 6f 63 6b 5d 20 | 32 29 29 0a 0a 28 64 65 |-block] |2))..(de|
|00000e20| 66 75 6e 20 6d 61 72 6b | 2d 62 6c 6f 63 6b 20 28 |fun mark|-block (|
|00000e30| 73 74 61 72 74 20 65 6e | 64 29 20 38 39 37 37 35 |start en|d) 89775|
|00000e40| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000e50| 20 22 10 08 fc 00 0d 11 | 08 48 12 08 fb 00 0f 11 | "......|.H......|
|00000e60| 08 48 13 1c 09 48 15 1e | 06 09 22 20 5b 62 6c 6f |.H...H..|.." [blo|
|00000e70| 63 6b 70 20 62 6c 6f 63 | 6b 2d 6b 69 6c 6c 20 72 |ckp bloc|k-kill r|
|00000e80| 65 66 72 65 73 68 2d 61 | 6c 6c 20 62 6c 6f 63 6b |efresh-a|ll block|
|00000e90| 2d 73 74 61 72 74 20 73 | 74 61 72 74 20 62 6c 6f |-start s|tart blo|
|00000ea0| 63 6b 2d 65 6e 64 20 65 | 6e 64 5d 20 32 29 29 0a |ck-end e|nd] 2)).|
|00000eb0| 0a 28 64 65 66 75 6e 20 | 6d 61 72 6b 2d 77 68 6f |.(defun |mark-who|
|00000ec0| 6c 65 2d 62 75 66 66 65 | 72 20 6e 69 6c 20 38 39 |le-buffe|r nil 89|
|00000ed0| 38 39 32 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |892 (int|eractive|
|00000ee0| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000ef0| 65 20 22 10 49 49 0a 48 | 11 12 08 13 08 0a 22 20 |e ".II.H|......" |
|00000f00| 5b 73 65 74 2d 72 65 63 | 74 2d 62 6c 6f 63 6b 73 |[set-rec|t-blocks|
|00000f10| 20 6d 61 72 6b 2d 62 6c | 6f 63 6b 20 62 75 66 66 | mark-bl|ock buff|
|00000f20| 65 72 2d 73 74 61 72 74 | 20 62 75 66 66 65 72 2d |er-start| buffer-|
|00000f30| 65 6e 64 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |end] 3))|..(defun|
|00000f40| 20 75 70 63 61 73 65 2d | 61 72 65 61 20 28 73 74 | upcase-|area (st|
|00000f50| 61 72 74 20 65 6e 64 20 | 26 6f 70 74 69 6f 6e 61 |art end |&optiona|
|00000f60| 6c 20 62 75 66 66 65 72 | 29 20 38 39 39 34 31 20 |l buffer|) 89941 |
|00000f70| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 2d 6d |(interac|tive "-m|
|00000f80| 0a 4d 22 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |.M") (ja|de-byte-|
|00000f90| 63 6f 64 65 20 22 10 19 | 1a 1b 1c 0c 22 20 5b 74 |code "..|...." [t|
|00000fa0| 72 61 6e 73 6c 61 74 65 | 2d 61 72 65 61 20 73 74 |ranslate|-area st|
|00000fb0| 61 72 74 20 65 6e 64 20 | 75 70 63 61 73 65 2d 74 |art end |upcase-t|
|00000fc0| 61 62 6c 65 20 62 75 66 | 66 65 72 5d 20 35 29 29 |able buf|fer] 5))|
|00000fd0| 0a 0a 28 64 65 66 75 6e | 20 64 6f 77 6e 63 61 73 |..(defun| downcas|
|00000fe0| 65 2d 61 72 65 61 20 28 | 73 74 61 72 74 20 65 6e |e-area (|start en|
|00000ff0| 64 20 26 6f 70 74 69 6f | 6e 61 6c 20 62 75 66 66 |d &optio|nal buff|
|00001000| 65 72 29 20 39 30 30 31 | 32 20 28 69 6e 74 65 72 |er) 9001|2 (inter|
|00001010| 61 63 74 69 76 65 20 22 | 2d 6d 0a 4d 22 29 20 28 |active "|-m.M") (|
|00001020| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00001030| 10 19 1a 1b 1c 0c 22 20 | 5b 74 72 61 6e 73 6c 61 |......" |[transla|
|00001040| 74 65 2d 61 72 65 61 20 | 73 74 61 72 74 20 65 6e |te-area |start en|
|00001050| 64 20 64 6f 77 6e 63 61 | 73 65 2d 74 61 62 6c 65 |d downca|se-table|
|00001060| 20 62 75 66 66 65 72 5d | 20 35 29 29 0a 0a 28 64 | buffer]| 5))..(d|
|00001070| 65 66 75 6e 20 75 70 63 | 61 73 65 2d 77 6f 72 64 |efun upc|ase-word|
|00001080| 20 28 63 6f 75 6e 74 29 | 20 39 30 30 38 33 20 28 | (count)| 90083 (|
|00001090| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 70 22 29 |interact|ive "p")|
|000010a0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000010b0| 20 22 44 10 19 09 32 13 | 14 08 1a 0a 48 15 1a 09 | "D...2.|....H...|
|000010c0| 45 22 20 5b 66 6f 72 77 | 61 72 64 2d 77 6f 72 64 |E" [forw|ard-word|
|000010d0| 20 63 6f 75 6e 74 20 70 | 6f 73 20 75 70 63 61 73 | count p|os upcas|
|000010e0| 65 2d 61 72 65 61 20 63 | 75 72 73 6f 72 2d 70 6f |e-area c|ursor-po|
|000010f0| 73 20 67 6f 74 6f 2d 63 | 68 61 72 5d 20 33 29 29 |s goto-c|har] 3))|
|00001100| 0a 0a 28 64 65 66 75 6e | 20 63 61 70 69 74 61 6c |..(defun| capital|
|00001110| 69 7a 65 2d 77 6f 72 64 | 20 6e 69 6c 20 39 30 31 |ize-word| nil 901|
|00001120| 33 38 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |38 (inte|ractive)|
|00001130| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00001140| 20 22 10 08 ff 00 0a 11 | 12 1b 09 09 48 14 15 08 | "......|....H...|
|00001150| 16 06 08 1e 07 0b 48 16 | 08 08 48 10 08 fe 00 23 |......H.|..H....#|
|00001160| 16 09 16 0a 09 22 20 5b | 69 6e 2d 77 6f 72 64 2d |....." [|in-word-|
|00001170| 70 20 67 6f 74 6f 2d 63 | 68 61 72 20 66 69 6e 64 |p goto-c|har find|
|00001180| 2d 6e 65 78 74 2d 72 65 | 67 65 78 70 20 77 6f 72 |-next-re|gexp wor|
|00001190| 64 2d 72 65 67 65 78 70 | 20 74 72 61 6e 73 6c 61 |d-regexp| transla|
|000011a0| 74 65 2d 61 72 65 61 20 | 63 75 72 73 6f 72 2d 70 |te-area |cursor-p|
|000011b0| 6f 73 20 6e 65 78 74 2d | 63 68 61 72 20 75 70 63 |os next-|char upc|
|000011c0| 61 73 65 2d 74 61 62 6c | 65 20 67 6f 74 6f 2d 6e |ase-tabl|e goto-n|
|000011d0| 65 78 74 2d 63 68 61 72 | 20 64 6f 77 6e 63 61 73 |ext-char| downcas|
|000011e0| 65 2d 77 6f 72 64 20 31 | 5d 20 34 29 29 0a 0a 28 |e-word 1|] 4))..(|
|000011f0| 64 65 66 75 6e 20 64 6f | 77 6e 63 61 73 65 2d 77 |defun do|wncase-w|
|00001200| 6f 72 64 20 28 63 6f 75 | 6e 74 29 20 39 30 32 33 |ord (cou|nt) 9023|
|00001210| 39 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |9 (inter|active "|
|00001220| 70 22 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |p") (jad|e-byte-c|
|00001230| 6f 64 65 20 22 44 10 19 | 09 32 13 14 08 1a 0a 48 |ode "D..|.2.....H|
|00001240| 15 1a 09 45 22 20 5b 66 | 6f 72 77 61 72 64 2d 77 |...E" [f|orward-w|
|00001250| 6f 72 64 20 63 6f 75 6e | 74 20 70 6f 73 20 64 6f |ord coun|t pos do|
|00001260| 77 6e 63 61 73 65 2d 61 | 72 65 61 20 63 75 72 73 |wncase-a|rea curs|
|00001270| 6f 72 2d 70 6f 73 20 67 | 6f 74 6f 2d 63 68 61 72 |or-pos g|oto-char|
|00001280| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 |] 3))..(|defun ma|
|00001290| 72 6b 2d 72 65 67 69 6f | 6e 20 6e 69 6c 20 39 30 |rk-regio|n nil 90|
|000012a0| 32 38 33 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |283 (int|eractive|
|000012b0| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|000012c0| 65 20 22 10 08 48 11 1a | 09 49 b2 61 fe 00 32 44 |e "..H..|.I.a..2D|
|000012d0| 13 08 34 1c 15 1a 09 64 | fc 00 5c 22 16 06 15 1a |..4....d|..\"....|
|000012e0| 09 1c 0a fb 00 31 4a fc | 00 30 16 06 1c 15 1a 09 |.....1J.|.0......|
|000012f0| 0a fb 00 31 49 45 22 20 | 5b 62 6c 6f 63 6b 2d 6b |...1IE" |[block-k|
|00001300| 69 6c 6c 20 6d 61 72 6b | 2d 66 69 6c 65 20 61 75 |ill mark|-file au|
|00001310| 74 6f 2d 6d 61 72 6b 20 | 63 75 72 73 6f 72 2d 70 |to-mark |cursor-p|
|00001320| 6f 73 20 63 75 72 73 20 | 6d 61 72 6b 2d 70 6f 73 |os curs |mark-pos|
|00001330| 20 6d 61 72 6b 2d 62 6c | 6f 63 6b 5d 20 34 29 29 | mark-bl|ock] 4))|
|00001340| 0a 0a 28 64 65 66 75 6e | 20 6b 69 6c 6c 2d 73 74 |..(defun| kill-st|
|00001350| 72 69 6e 67 20 28 73 74 | 72 69 6e 67 29 20 39 30 |ring (st|ring) 90|
|00001360| 33 36 32 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |362 (jad|e-byte-c|
|00001370| 6f 64 65 20 22 10 11 1a | 13 61 fc 00 11 14 15 08 |ode "...|.a......|
|00001380| 1e 06 0a fb 00 13 1e 06 | 0a 48 13 46 26 07 48 1e |........|.H.F&.H.|
|00001390| 06 22 20 5b 77 72 69 74 | 65 2d 63 6c 69 70 20 30 |." [writ|e-clip 0|
|000013a0| 20 6c 61 73 74 2d 63 6f | 6d 6d 61 6e 64 20 6b 69 | last-co|mmand ki|
|000013b0| 6c 6c 20 63 6f 6e 63 61 | 74 20 6b 69 6c 6c 65 64 |ll conca|t killed|
|000013c0| 2d 73 74 72 69 6e 67 20 | 73 74 72 69 6e 67 20 74 |-string |string t|
|000013d0| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 5d 20 35 29 29 |his-comm|and] 5))|
|000013e0| 0a 0a 28 64 65 66 75 6e | 20 6b 69 6c 6c 65 64 2d |..(defun| killed-|
|000013f0| 73 74 72 69 6e 67 20 28 | 26 6f 70 74 69 6f 6e 61 |string (|&optiona|
|00001400| 6c 20 64 65 70 74 68 29 | 20 39 30 34 36 35 20 28 |l depth)| 90465 (|
|00001410| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00001420| 18 6c ff 00 08 18 11 62 | fc 00 11 12 11 09 fb 00 |.l.....b|........|
|00001430| 15 13 14 18 0a 22 20 5b | 64 65 70 74 68 20 30 20 |....." [|depth 0 |
|00001440| 72 65 61 64 2d 63 6c 69 | 70 20 65 72 72 6f 72 20 |read-cli|p error |
|00001450| 22 4e 6f 20 73 74 72 69 | 6e 67 20 61 74 20 73 70 |"No stri|ng at sp|
|00001460| 65 63 69 66 69 65 64 20 | 64 65 70 74 68 20 69 6e |ecified |depth in|
|00001470| 20 6b 69 6c 6c 20 73 74 | 6f 72 61 67 65 22 5d 20 | kill st|orage"] |
|00001480| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 6b 69 6c 6c |3))..(de|fun kill|
|00001490| 2d 61 72 65 61 20 28 73 | 74 61 72 74 20 65 6e 64 |-area (s|tart end|
|000014a0| 29 20 39 30 35 39 38 20 | 28 69 6e 74 65 72 61 63 |) 90598 |(interac|
|000014b0| 74 69 76 65 20 22 2d 6d | 0a 4d 22 29 20 28 6a 61 |tive "-m|.M") (ja|
|000014c0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 11 |de-byte-|code "..|
|000014d0| 1a 1b 0a 09 22 20 5b 6b | 69 6c 6c 2d 73 74 72 69 |...." [k|ill-stri|
|000014e0| 6e 67 20 63 75 74 2d 61 | 72 65 61 20 73 74 61 72 |ng cut-a|rea star|
|000014f0| 74 20 65 6e 64 5d 20 34 | 29 29 0a 0a 28 64 65 66 |t end] 4|))..(def|
|00001500| 75 6e 20 63 6f 70 79 2d | 61 72 65 61 2d 61 73 2d |un copy-|area-as-|
|00001510| 6b 69 6c 6c 20 28 73 74 | 61 72 74 20 65 6e 64 29 |kill (st|art end)|
|00001520| 20 39 30 36 36 32 20 28 | 69 6e 74 65 72 61 63 74 | 90662 (|interact|
|00001530| 69 76 65 20 22 2d 6d 0a | 4d 22 29 20 28 6a 61 64 |ive "-m.|M") (jad|
|00001540| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 11 1a |e-byte-c|ode "...|
|00001550| 1b 0a 09 22 20 5b 6b 69 | 6c 6c 2d 73 74 72 69 6e |..." [ki|ll-strin|
|00001560| 67 20 63 6f 70 79 2d 61 | 72 65 61 20 73 74 61 72 |g copy-a|rea star|
|00001570| 74 20 65 6e 64 5d 20 34 | 29 29 0a 0a 28 64 65 66 |t end] 4|))..(def|
|00001580| 75 6e 20 6b 69 6c 6c 2d | 6c 69 6e 65 20 28 26 6f |un kill-|line (&o|
|00001590| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 39 30 37 |ptional |arg) 907|
|000015a0| 34 39 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |49 (inte|ractive |
|000015b0| 22 50 22 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |"P") (ja|de-byte-|
|000015c0| 63 6f 64 65 20 22 44 10 | 19 09 12 08 49 33 34 35 |code "D.|....I345|
|000015d0| 19 6c fc 00 28 1c 16 06 | 08 65 fc 00 20 16 07 16 |.l..(...|.e.. ...|
|000015e0| 08 08 09 fb 00 23 16 06 | 08 46 23 fb 00 4e 1d 16 |.....#..|.F#..N..|
|000015f0| 09 64 fc 00 3b 16 07 16 | 08 1d 09 09 46 23 fb 00 |.d..;...|....F#..|
|00001600| 4e 4a fc 00 4d 1c 23 16 | 07 16 08 1d 09 09 46 24 |NJ..M.#.|......F$|
|00001610| fb 00 4e 49 48 16 0a 1c | 1b 0a 45 22 20 5b 70 72 |..NIH...|..E" [pr|
|00001620| 65 66 69 78 2d 6e 75 6d | 65 72 69 63 2d 61 72 67 |efix-num|eric-arg|
|00001630| 75 6d 65 6e 74 20 61 72 | 67 20 63 75 72 73 6f 72 |ument ar|g cursor|
|00001640| 2d 70 6f 73 20 65 6e 64 | 20 73 74 61 72 74 20 63 |-pos end| start c|
|00001650| 6f 75 6e 74 20 6c 69 6e | 65 2d 65 6e 64 20 6c 69 |ount lin|e-end li|
|00001660| 6e 65 2d 73 74 61 72 74 | 20 6e 65 78 74 2d 6c 69 |ne-start| next-li|
|00001670| 6e 65 20 30 20 6b 69 6c | 6c 2d 61 72 65 61 5d 20 |ne 0 kil|l-area] |
|00001680| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 6b 69 6c 6c |3))..(de|fun kill|
|00001690| 2d 77 68 6f 6c 65 2d 6c | 69 6e 65 20 28 63 6f 75 |-whole-l|ine (cou|
|000016a0| 6e 74 29 20 39 30 39 31 | 33 20 28 69 6e 74 65 72 |nt) 9091|3 (inter|
|000016b0| 61 63 74 69 76 65 20 22 | 70 22 29 20 28 6a 61 64 |active "|p") (jad|
|000016c0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 11 08 |e-byte-c|ode "...|
|000016d0| 11 12 1b 09 09 0a 22 20 | 5b 6b 69 6c 6c 2d 61 72 |......" |[kill-ar|
|000016e0| 65 61 20 6c 69 6e 65 2d | 73 74 61 72 74 20 6e 65 |ea line-|start ne|
|000016f0| 78 74 2d 6c 69 6e 65 20 | 63 6f 75 6e 74 5d 20 35 |xt-line |count] 5|
|00001700| 29 29 0a 0a 28 64 65 66 | 75 6e 20 62 61 63 6b 77 |))..(def|un backw|
|00001710| 61 72 64 2d 6b 69 6c 6c | 2d 6c 69 6e 65 20 6e 69 |ard-kill|-line ni|
|00001720| 6c 20 39 30 39 34 39 20 | 28 69 6e 74 65 72 61 63 |l 90949 |(interac|
|00001730| 74 69 76 65 29 20 28 6a | 61 64 65 2d 62 79 74 65 |tive) (j|ade-byte|
|00001740| 2d 63 6f 64 65 20 22 10 | 11 12 08 09 6b fc 00 0e |-code ".|....k...|
|00001750| 13 08 fb 00 10 14 08 12 | 08 0a 22 20 5b 6b 69 6c |........|.." [kil|
|00001760| 6c 2d 61 72 65 61 20 70 | 6f 73 2d 63 6f 6c 20 63 |l-area p|os-col c|
|00001770| 75 72 73 6f 72 2d 70 6f | 73 20 70 72 65 76 2d 63 |ursor-po|s prev-c|
|00001780| 68 61 72 20 6c 69 6e 65 | 2d 73 74 61 72 74 5d 20 |har line|-start] |
|00001790| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 79 61 6e 6b |3))..(de|fun yank|
|000017a0| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 64 6f 6e 74 | (&optio|nal dont|
|000017b0| 2d 79 61 6e 6b 2d 62 6c | 6f 63 6b 29 20 39 30 39 |-yank-bl|ock) 909|
|000017c0| 39 36 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |96 (inte|ractive |
|000017d0| 22 50 22 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |"P") (ja|de-byte-|
|000017e0| 63 6f 64 65 20 22 10 19 | 6c fe 00 08 12 08 fc 00 |code "..|l.......|
|000017f0| 10 13 08 fb 00 12 14 08 | 09 22 20 5b 69 6e 73 65 |........|." [inse|
|00001800| 72 74 20 64 6f 6e 74 2d | 79 61 6e 6b 2d 62 6c 6f |rt dont-|yank-blo|
|00001810| 63 6b 20 62 6c 6f 63 6b | 70 20 63 6f 70 79 2d 62 |ck block|p copy-b|
|00001820| 6c 6f 63 6b 20 6b 69 6c | 6c 65 64 2d 73 74 72 69 |lock kil|led-stri|
|00001830| 6e 67 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |ng] 2)).|.(defun |
|00001840| 79 61 6e 6b 2d 72 65 63 | 74 61 6e 67 6c 65 20 28 |yank-rec|tangle (|
|00001850| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 6f 6e 74 2d 79 |&optiona|l dont-y|
|00001860| 61 6e 6b 2d 62 6c 6f 63 | 6b 29 20 39 31 31 36 30 |ank-bloc|k) 91160|
|00001870| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00001880| 22 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |") (jade|-byte-co|
|00001890| 64 65 20 22 10 19 6c fe | 00 08 12 08 fc 00 10 13 |de "..l.|........|
|000018a0| 08 fb 00 12 14 08 09 22 | 20 5b 69 6e 73 65 72 74 |......."| [insert|
|000018b0| 2d 72 65 63 74 20 64 6f | 6e 74 2d 79 61 6e 6b 2d |-rect do|nt-yank-|
|000018c0| 62 6c 6f 63 6b 20 62 6c | 6f 63 6b 70 20 63 6f 70 |block bl|ockp cop|
|000018d0| 79 2d 62 6c 6f 63 6b 20 | 6b 69 6c 6c 65 64 2d 73 |y-block |killed-s|
|000018e0| 74 72 69 6e 67 5d 20 32 | 29 29 0a 0a 28 64 65 66 |tring] 2|))..(def|
|000018f0| 75 6e 20 79 61 6e 6b 2d | 74 6f 2d 6d 6f 75 73 65 |un yank-|to-mouse|
|00001900| 20 6e 69 6c 20 39 31 32 | 33 35 20 28 69 6e 74 65 | nil 912|35 (inte|
|00001910| 72 61 63 74 69 76 65 29 | 20 28 6a 61 64 65 2d 62 |ractive)| (jade-b|
|00001920| 79 74 65 2d 63 6f 64 65 | 20 22 10 11 08 09 48 12 |yte-code| "....H.|
|00001930| 08 22 20 5b 67 6f 74 6f | 2d 63 68 61 72 20 6d 6f |." [goto|-char mo|
|00001940| 75 73 65 2d 70 6f 73 20 | 79 61 6e 6b 5d 20 32 29 |use-pos |yank] 2)|
|00001950| 29 0a 0a 28 64 65 66 75 | 6e 20 74 72 61 6e 73 70 |)..(defu|n transp|
|00001960| 6f 73 65 2d 69 74 65 6d | 73 20 28 66 6f 72 77 61 |ose-item|s (forwa|
|00001970| 72 64 2d 69 74 65 6d 20 | 62 61 63 6b 77 61 72 64 |rd-item |backward|
|00001980| 2d 69 74 65 6d 20 63 6f | 75 6e 74 29 20 39 31 33 |-item co|unt) 913|
|00001990| 35 38 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |58 (jade|-byte-co|
|000019a0| 64 65 20 22 44 49 49 49 | 49 30 31 32 33 1c 15 64 |de "DIII|I0123..d|
|000019b0| fe 00 49 16 06 1e 07 16 | 08 0a 23 16 06 1e 09 16 |..I.....|..#.....|
|000019c0| 08 16 0a 1b 09 0b 21 16 | 06 1e 09 16 08 16 0a 19 |......!.|........|
|000019d0| 09 0b 20 16 06 1e 07 16 | 08 16 0a 18 09 0b 46 5c |.. .....|......F\|
|000019e0| 22 48 16 0b 08 48 1c 69 | 46 24 48 fb 00 09 48 1c |"H...H.i|F$H...H.|
|000019f0| 15 66 fe 00 8a 16 06 1e | 07 16 08 0a 23 16 06 1e |.f......|....#...|
|00001a00| 09 16 08 16 0a 1b 09 0b | 21 16 06 1e 07 16 08 16 |........|!.......|
|00001a10| 0a 1b 09 0b 5c 22 16 06 | 1e 09 16 08 16 0a 1a 09 |....\"..|........|
|00001a20| 0b 46 20 48 16 0b 08 48 | 1c 68 46 24 48 fb 00 4a |.F H...H|.hF$H..J|
|00001a30| 45 22 20 5b 65 6e 64 32 | 20 65 6e 64 31 20 73 74 |E" [end2| end1 st|
|00001a40| 61 72 74 32 20 73 74 61 | 72 74 31 20 63 6f 75 6e |art2 sta|rt1 coun|
|00001a50| 74 20 30 20 66 75 6e 63 | 61 6c 6c 20 62 61 63 6b |t 0 func|all back|
|00001a60| 77 61 72 64 2d 69 74 65 | 6d 20 31 20 66 6f 72 77 |ward-ite|m 1 forw|
|00001a70| 61 72 64 2d 69 74 65 6d | 20 63 6f 70 79 2d 70 6f |ard-item| copy-po|
|00001a80| 73 20 74 72 61 6e 73 70 | 6f 73 65 2d 31 5d 20 35 |s transp|ose-1] 5|
|00001a90| 29 29 0a 0a 28 64 65 66 | 75 6e 20 74 72 61 6e 73 |))..(def|un trans|
|00001aa0| 70 6f 73 65 2d 31 20 6e | 69 6c 20 28 6a 61 64 65 |pose-1 n|il (jade|
|00001ab0| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 44 49 49 30 |-byte-co|de "DII0|
|00001ac0| 31 1a 1b 66 fc 00 31 14 | 1b 1d 0a 21 16 06 1a 1e |1..f..1.|...!....|
|00001ad0| 07 0a 46 20 48 16 08 18 | 1b 0a 48 16 09 1a 1e 07 |..F H...|..H.....|
|00001ae0| 0a 48 16 0a 16 08 19 1a | 0a 09 fb 00 53 16 06 1b |.H......|....S...|
|00001af0| 1d 0a 21 14 1a 1e 07 0a | 46 20 48 16 0a 16 08 19 |..!.....|F H.....|
|00001b00| 1a 0a 09 48 16 09 1b 1d | 0a 48 16 08 18 1b 0a 45 |...H....|.H.....E|
|00001b10| 22 20 5b 74 65 78 74 32 | 20 74 65 78 74 31 20 73 |" [text2| text1 s|
|00001b20| 74 61 72 74 32 20 73 74 | 61 72 74 31 20 63 75 74 |tart2 st|art1 cut|
|00001b30| 2d 61 72 65 61 20 65 6e | 64 31 20 63 6f 70 79 2d |-area en|d1 copy-|
|00001b40| 61 72 65 61 20 65 6e 64 | 32 20 69 6e 73 65 72 74 |area end|2 insert|
|00001b50| 20 64 65 6c 65 74 65 2d | 61 72 65 61 20 67 6f 74 | delete-|area got|
|00001b60| 6f 2d 63 68 61 72 5d 20 | 34 29 29 0a 0a 28 64 65 |o-char] |4))..(de|
|00001b70| 66 75 6e 20 61 62 6f 72 | 74 2d 72 65 63 75 72 73 |fun abor|t-recurs|
|00001b80| 69 76 65 2d 65 64 69 74 | 20 28 26 6f 70 74 69 6f |ive-edit| (&optio|
|00001b90| 6e 61 6c 20 72 65 74 2d | 76 61 6c 29 20 39 31 36 |nal ret-|val) 916|
|00001ba0| 36 35 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |65 (inte|ractive)|
|00001bb0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00001bc0| 20 22 10 19 74 22 20 5b | 65 78 69 74 20 72 65 74 | "..t" [|exit ret|
|00001bd0| 2d 76 61 6c 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 |-val] 2)|)..(defu|
|00001be0| 6e 20 74 6f 70 2d 6c 65 | 76 65 6c 20 6e 69 6c 20 |n top-le|vel nil |
|00001bf0| 39 31 37 33 32 20 28 69 | 6e 74 65 72 61 63 74 69 |91732 (i|nteracti|
|00001c00| 76 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |ve) (jad|e-byte-c|
|00001c10| 6f 64 65 20 22 10 49 74 | 22 20 5b 74 6f 70 2d 6c |ode ".It|" [top-l|
|00001c20| 65 76 65 6c 5d 20 32 29 | 29 0a 0a 28 64 65 66 76 |evel] 2)|)..(defv|
|00001c30| 61 72 20 6f 76 65 72 77 | 72 69 74 65 2d 6d 6f 64 |ar overw|rite-mod|
|00001c40| 65 2d 70 20 6e 69 6c 20 | 39 31 37 35 39 29 0a 0a |e-p nil |91759)..|
|00001c50| 28 6d 61 6b 65 2d 76 61 | 72 69 61 62 6c 65 2d 62 |(make-va|riable-b|
|00001c60| 75 66 66 65 72 2d 6c 6f | 63 61 6c 20 28 71 75 6f |uffer-lo|cal (quo|
|00001c70| 74 65 20 6f 76 65 72 77 | 72 69 74 65 2d 6d 6f 64 |te overw|rite-mod|
|00001c80| 65 2d 70 29 29 0a 0a 28 | 64 65 66 75 6e 20 6f 76 |e-p))..(|defun ov|
|00001c90| 65 72 77 72 69 74 65 2d | 6d 6f 64 65 20 6e 69 6c |erwrite-|mode nil|
|00001ca0| 20 39 31 37 39 39 20 28 | 69 6e 74 65 72 61 63 74 | 91799 (|interact|
|00001cb0| 69 76 65 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |ive) (ja|de-byte-|
|00001cc0| 63 6f 64 65 20 22 18 fc | 00 15 49 46 20 48 11 12 |code "..|..IF H..|
|00001cd0| 13 0a 48 14 15 16 06 0a | fb 00 25 16 07 12 13 0a |..H.....|..%.....|
|00001ce0| 48 4a 46 20 48 16 08 15 | 16 06 0a 22 20 5b 6f 76 |HJF H...|..." [ov|
|00001cf0| 65 72 77 72 69 74 65 2d | 6d 6f 64 65 2d 70 20 72 |erwrite-|mode-p r|
|00001d00| 65 6d 6f 76 65 2d 6d 69 | 6e 6f 72 2d 6d 6f 64 65 |emove-mi|nor-mode|
|00001d10| 20 6f 76 65 72 77 72 69 | 74 65 2d 6d 6f 64 65 20 | overwri|te-mode |
|00001d20| 22 4f 76 65 72 77 72 69 | 74 65 22 20 72 65 6d 6f |"Overwri|te" remo|
|00001d30| 76 65 2d 68 6f 6f 6b 20 | 75 6e 62 6f 75 6e 64 2d |ve-hook |unbound-|
|00001d40| 6b 65 79 2d 68 6f 6f 6b | 20 6f 76 65 72 77 72 69 |key-hook| overwri|
|00001d50| 74 65 2d 69 6e 73 65 72 | 74 20 61 64 64 2d 6d 69 |te-inser|t add-mi|
|00001d60| 6e 6f 72 2d 6d 6f 64 65 | 20 61 64 64 2d 68 6f 6f |nor-mode| add-hoo|
|00001d70| 6b 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 6f |k] 3))..|(defun o|
|00001d80| 76 65 72 77 72 69 74 65 | 2d 69 6e 73 65 72 74 20 |verwrite|-insert |
|00001d90| 28 26 6f 70 74 69 6f 6e | 61 6c 20 73 74 72 29 20 |(&option|al str) |
|00001da0| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|00001db0| 22 18 ff 00 08 11 08 46 | 20 48 18 fe 00 1e 18 54 |"......F| H.....T|
|00001dc0| 46 5c 22 48 13 14 08 15 | 1a 09 0a 48 16 06 18 09 |F\"H....|...H....|
|00001dd0| 22 20 5b 73 74 72 20 63 | 75 72 72 65 6e 74 2d 65 |" [str c|urrent-e|
|00001de0| 76 65 6e 74 2d 73 74 72 | 69 6e 67 20 6c 65 6e 20 |vent-str|ing len |
|00001df0| 64 65 6c 65 74 65 2d 61 | 72 65 61 20 63 75 72 73 |delete-a|rea curs|
|00001e00| 6f 72 2d 70 6f 73 20 72 | 69 67 68 74 2d 63 68 61 |or-pos r|ight-cha|
|00001e10| 72 20 69 6e 73 65 72 74 | 5d 20 34 29 29 0a 0a 28 |r insert|] 4))..(|
|00001e20| 64 65 66 75 6e 20 62 61 | 63 6b 73 70 61 63 65 2d |defun ba|ckspace-|
|00001e30| 63 68 61 72 20 28 63 6f | 75 6e 74 29 20 39 31 38 |char (co|unt) 918|
|00001e40| 33 31 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |31 (inte|ractive |
|00001e50| 22 70 22 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |"p") (ja|de-byte-|
|00001e60| 63 6f 64 65 20 22 44 10 | 19 09 32 13 08 14 08 64 |code "D.|..2....d|
|00001e70| fc 00 27 1a 14 08 64 fc | 00 1a 15 1a 09 fb 00 24 |..'...d.|.......$|
|00001e80| 16 06 08 48 16 07 1a 13 | 08 0a fb 00 2d 16 07 1a |...H....|....-...|
|00001e90| 13 08 0a 45 22 20 5b 70 | 72 65 76 2d 63 68 61 72 |...E" [p|rev-char|
|00001ea0| 20 63 6f 75 6e 74 20 73 | 74 61 72 74 20 63 75 72 | count s|tart cur|
|00001eb0| 73 6f 72 2d 70 6f 73 20 | 6c 69 6e 65 2d 65 6e 64 |sor-pos |line-end|
|00001ec0| 20 67 6f 74 6f 2d 63 68 | 61 72 20 67 6f 74 6f 2d | goto-ch|ar goto-|
|00001ed0| 6c 69 6e 65 2d 65 6e 64 | 20 64 65 6c 65 74 65 2d |line-end| delete-|
|00001ee0| 61 72 65 61 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |area] 3)|)..(defu|
|00001ef0| 6e 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 28 63 |n delete|-char (c|
|00001f00| 6f 75 6e 74 29 20 39 31 | 39 36 31 20 28 69 6e 74 |ount) 91|961 (int|
|00001f10| 65 72 61 63 74 69 76 65 | 20 22 70 22 29 20 28 6a |eractive| "p") (j|
|00001f20| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 10 |ade-byte|-code ".|
|00001f30| 11 08 12 1b 09 0a 22 20 | 5b 64 65 6c 65 74 65 2d |......" |[delete-|
|00001f40| 61 72 65 61 20 63 75 72 | 73 6f 72 2d 70 6f 73 20 |area cur|sor-pos |
|00001f50| 6e 65 78 74 2d 63 68 61 | 72 20 63 6f 75 6e 74 5d |next-cha|r count]|
|00001f60| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 74 61 62 | 4))..(d|efun tab|
|00001f70| 2d 77 69 74 68 2d 73 70 | 61 63 65 73 20 6e 69 6c |-with-sp|aces nil|
|00001f80| 20 39 32 30 30 30 20 28 | 69 6e 74 65 72 61 63 74 | 92000 (|interact|
|00001f90| 69 76 65 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |ive) (ja|de-byte-|
|00001fa0| 63 6f 64 65 20 22 10 11 | 12 08 09 4a 0a 22 20 5b |code "..|...J." [|
|00001fb0| 69 6e 64 65 6e 74 2d 74 | 6f 20 70 6f 73 2d 63 6f |indent-t|o pos-co|
|00001fc0| 6c 20 6e 65 78 74 2d 74 | 61 62 5d 20 33 29 29 0a |l next-t|ab] 3)).|
|00001fd0| 0a 28 64 65 66 75 6e 20 | 6a 75 73 74 2d 73 70 61 |.(defun |just-spa|
|00001fe0| 63 65 73 20 28 63 6f 75 | 6e 74 29 20 39 32 30 37 |ces (cou|nt) 9207|
|00001ff0| 36 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |6 (inter|active "|
|00002000| 70 22 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |p") (jad|e-byte-c|
|00002010| 6f 64 65 20 22 10 08 11 | 88 fe 00 34 44 12 13 09 |ode "...|...4D...|
|00002020| 34 1c fe 00 33 15 16 06 | 1c 0a 48 1c fe 00 20 16 |4...3...|..H... .|
|00002030| 07 16 08 1c 0a fe 00 33 | 16 09 16 0a 08 16 0b 08 |.......3|........|
|00002040| 0a 48 16 0c 16 0a 08 09 | 45 48 1e 0d 6b ff 00 45 |.H......|EH..k..E|
|00002050| 16 0e 16 0f 1e 0d 16 10 | 0a 09 22 20 5b 67 65 74 |........|.." [get|
|00002060| 2d 63 68 61 72 20 28 33 | 32 20 39 29 20 66 69 6e |-char (3|2 9) fin|
|00002070| 64 2d 70 72 65 76 2d 72 | 65 67 65 78 70 20 22 5b |d-prev-r|egexp "[|
|00002080| 5e 09 20 5d 7c 5e 22 20 | 70 6f 73 20 6e 65 78 74 |^. ]|^" |pos next|
|00002090| 2d 63 68 61 72 20 31 20 | 6c 6f 6f 6b 69 6e 67 2d |-char 1 |looking-|
|000020a0| 61 74 20 22 5b 09 20 5d | 2b 22 20 64 65 6c 65 74 |at "[. ]|+" delet|
|000020b0| 65 2d 61 72 65 61 20 6d | 61 74 63 68 2d 73 74 61 |e-area m|atch-sta|
|000020c0| 72 74 20 6d 61 74 63 68 | 2d 65 6e 64 20 67 6f 74 |rt match|-end got|
|000020d0| 6f 2d 63 68 61 72 20 63 | 6f 75 6e 74 20 69 6e 73 |o-char c|ount ins|
|000020e0| 65 72 74 20 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 |ert make|-string |
|000020f0| 33 32 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |32] 4)).|.(defun |
|00002100| 6e 6f 2d 73 70 61 63 65 | 73 20 6e 69 6c 20 39 32 |no-space|s nil 92|
|00002110| 31 33 35 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |135 (int|eractive|
|00002120| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00002130| 65 20 22 10 11 09 22 20 | 5b 6a 75 73 74 2d 73 70 |e "..." |[just-sp|
|00002140| 61 63 65 73 20 30 5d 20 | 32 29 29 0a 0a 28 64 65 |aces 0] |2))..(de|
|00002150| 66 75 6e 20 6f 70 65 6e | 2d 6c 69 6e 65 20 28 63 |fun open|-line (c|
|00002160| 6f 75 6e 74 29 20 39 32 | 31 39 35 20 28 69 6e 74 |ount) 92|195 (int|
|00002170| 65 72 61 63 74 69 76 65 | 20 22 70 22 29 20 28 6a |eractive| "p") (j|
|00002180| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 44 |ade-byte|-code "D|
|00002190| 10 08 31 12 13 1c 15 0a | 09 48 16 06 19 09 45 22 |..1.....|.H....E"|
|000021a0| 20 5b 63 75 72 73 6f 72 | 2d 70 6f 73 20 6f 70 6f | [cursor|-pos opo|
|000021b0| 73 20 69 6e 73 65 72 74 | 20 6d 61 6b 65 2d 73 74 |s insert| make-st|
|000021c0| 72 69 6e 67 20 63 6f 75 | 6e 74 20 31 30 20 67 6f |ring cou|nt 10 go|
|000021d0| 74 6f 2d 63 68 61 72 5d | 20 34 29 29 0a 0a 28 64 |to-char]| 4))..(d|
|000021e0| 65 66 75 6e 20 74 72 61 | 6e 73 70 6f 73 65 2d 63 |efun tra|nspose-c|
|000021f0| 68 61 72 73 20 28 63 6f | 75 6e 74 29 20 39 32 32 |hars (co|unt) 922|
|00002200| 38 39 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |89 (inte|ractive |
|00002210| 22 70 22 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |"p") (ja|de-byte-|
|00002220| 63 6f 64 65 20 22 10 11 | 12 1b 0b 22 20 5b 74 72 |code "..|..." [tr|
|00002230| 61 6e 73 70 6f 73 65 2d | 69 74 65 6d 73 20 6e 65 |anspose-|items ne|
|00002240| 78 74 2d 63 68 61 72 20 | 70 72 65 76 2d 63 68 61 |xt-char |prev-cha|
|00002250| 72 20 63 6f 75 6e 74 5d | 20 34 29 29 0a          |r count]| 4)).   |
+--------+-------------------------+-------------------------+--------+--------+